unit frm_IncomingDoc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBGridEh, StdCtrls, DBCtrlsEh, Mask, DBLookupEh, DB, FIBDataSet,
  pFIBDataSet, FIBDatabase, pFIBDatabase;

type
  TfrmIncomigDoc = class(TFormBase)
    bCancel: TButton;
    bSave: TButton;
    GroupBox1: TGroupBox;
    lcbDocType: TDBLookupComboboxEh;
    dbdeEDate: TDBDateTimeEditEh;
    dbdeBDate: TDBDateTimeEditEh;
    dbeNote: TDBEditEh;
    dbeSumma: TDBEditEh;
    dbeDocument: TDBEditEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    dsc_DocType: TDataSource;
    dsc_Incoming: TDataSource;
    LocalTrans: TpFIBTransaction;
    ds_DocType: TpFIBDataSet;
    ds_Incoming: TpFIBDataSet;
    ds_DocTypeID: TFIBIntegerField;
    ds_DocTypeNAME: TFIBStringField;
    ds_IncomingID: TFIBIntegerField;
    ds_IncomingCLIENT_ID: TFIBIntegerField;
    ds_IncomingTYPE_ID: TFIBIntegerField;
    ds_IncomingBDATE: TFIBDateField;
    ds_IncomingEDATE: TFIBDateField;
    ds_IncomingDESCRIPT: TFIBStringField;
    ds_IncomingMONTH_SUMMA: TFIBBCDField;
    ds_IncomingINCOMING_DOC: TFIBStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmIncomigDoc: TfrmIncomigDoc;

implementation
uses uDM;

{$R *.dfm}

end.
